<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>8</cardCount>
<cardID>2933</cardID>
<listID>3798</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>------------------------------------------------------------------------ Beyond HyperCard stack!---- Cyan • Spokane, Washington • (509) 238-6789---- All scripts are copyright © 1990 by Cyan. All rights reserved.-- You may use these scripts in your own non-commercial stacks.------------------------------------------------------------------------on openStackhide menubarend openStackon resumeStackhide menubarend resumeStackon GroupRadioanswer "Do you want to place the Script that controls the radio buttons in the buttons themselves?" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit GroupRadioif it is "Yes" thenget "Buttons"elseanswer "Place the Script that controls the radio buttons in the…" with "Stack" or "Background" or "Card"end ifput it into handlerwhereif handlerwhere <> "buttons" thenput "put the script of this " & handlerwhere & " into thescript" into doitdo doitput 0 into xrepeatput "RadioGroup" into newHandleradd 1 to xput x after newHandlerif newHandler is not in theScript then exit repeatend repeatask "Please name the handler for this group of radio buttons. (One word only.)" with newHandlerrepeat until the number of words of it ≤ 1beepask "Please name the handler for this group of radio buttons. (One word only - NO SPACES ALLOWED.)" with newHandlerend repeatelseget "mouseDown"put empty into theScriptend ifif it is not empty thenput it into newHandlerchoose rect toolset pattern to 22set filled to falseset cursor to crossset linesize to 2set grid to falseset centered to falsewait until the mouse is downput the mouseloc into thestartput the mouseloc into mouseoldrepeat until the mouse is upget the mouselocif it ≠ mouseold thendomenu "undo"drag from thestart to it with optionkeyput it into mouseoldend ifend repeatput the mouseloc into theendset cursor to busylock screen-- fix backwards rectangleif item 1 of thestart > item 1 of theend thenget item 1 of thestartput item 1 of theend into item 1 of thestartput it into item 1 of theendend ifif item 2 of thestart > item 2 of theend thenget item 2 of thestartput item 2 of theend into item 2 of thestartput it into item 2 of theendend ifdomenu "undo"choose browse toolset cursor to busyput thestart & "," & theend into therectput empty into theListput empty into theListbgput "on mouseup" & return & newhandler & return & "end mouseup" into buttonscript-- find valid card buttonsrepeat with x = 1 to the number of buttonsif the loc of button x is within therect and the style of button x is "radioButton" thenset cursor to busyput the id of button x & space after theListset autohilite of button x to falseif handlerwhere <> "buttons" then set script of button x to buttonscriptend ifend repeat-- find valid bg buttonsrepeat with x = 1 to the number of bg buttonsif the loc of bg button x is within therect and the style of bg button x is "radioButton" thenset cursor to busyput the id of bg button x & space after theListbgset autohilite of bg button x to falseif handlerwhere <> "buttons" then set script of bg button x to buttonscriptend ifend repeatput the number of words in thelist + the number of words in thelistbg into buttoncountput "on" && newhandler & return into cardscriptif buttoncount > 4 then put "lock screen" & return after cardscriptif theList is empty and thelistbg is empty thenanswer "No radio buttons found within the selected area." with OKelse-- script for card buttonsrepeat with x = 1 to the number of words in theListput "set hilite of button id" && word x of theList && "to false" & return after cardscriptend repeat-- script for bg buttonsrepeat with x = 1 to the number of words in theListbgput "set hilite of bg button id" && word x of theListbg && "to false" & return after cardscriptend repeatput "set the hilite of the target to true" & return & "end" && newhandler after cardscriptif thescript is not empty then put return & return after theScriptput cardscript after theScriptif handlerwhere <> "buttons" thenput "set the script of this " & handlerwhere & " to theScript" into doitdo doitelserepeat with x = 1 to the number of words in theListset the script of card button id (word x of theList) to theScriptend repeatrepeat with x = 1 to the number of words in theListbgset the script of card button id (word x of theListbg) to theScriptend repeatend ifunlock screenget buttoncount & " radio buttons were grouped."answer it with OKend ifend ifend GroupRadioon GroupNowglobal GPathif the short name of this card is "GroupRadio" then hide card button "Radio Buttons"hide window "GroupRadio"close window "GroupRadio"GroupRadiostop using GPathput empty into GPathend GroupNowon GroupCancelglobal GPathif the short name of this card is "GroupRadio" then hide card button "Radio Buttons"hide window "GroupRadio"close window "GroupRadio"stop using GPathput empty into GPathend GroupCancel</script>
